﻿Public Class xtf_ABMusuario2 
    Public obj_usuario As cls_usuario_ = Nothing

    Public Sub New()
        InitializeComponent()
        Cargargrupo_()
        Me.Text = "Usuario - Nuevo"
        obj_usuario = New cls_usuario_
        If UsuarioLOG.esroot Then
            txt_Contraseña.Properties.PasswordChar = ""
            txt_Contraseña2.Properties.PasswordChar = ""
        End If
    End Sub

    Private Sub Cargargrupo_()
        Dim grupo_ As New cls_grupo_
        grupo_.CargarTodos()
        cargarCombo(cbo_Grupo, grupo_.Items)

    End Sub

    Public Sub Modificar(ByRef usuario As cls_usuario_)
        If IsNothing(obj_usuario) Then
            obj_usuario = New cls_usuario_
        End If
        obj_usuario = usuario

        Me.Text = "usuario - " & obj_usuario.ToString
        'txt_ID.Text = obj_localidad.idlocalidad
        cbo_Grupo.EditValue = usuario.idgrupo

        txt_Usuario.Text = obj_usuario.usuario
        txt_Contraseña.Text = obj_usuario.contraseña
        txt_Contraseña2.Text = obj_usuario.contraseña

        obj_usuario.grupo = Nothing

    End Sub

    Public Function ComprobarDatos() As Boolean
        If Not cbo_Grupo.Enabled Then
            Return False
        End If
        If Not txt_Contraseña.Text = txt_Contraseña2.Text Then
            ErrManagerShow("000007", Me)
            Return False
        End If
        Return True
    End Function

    Private Sub btn_Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Guardar.Click
        If ComprobarDatos() Then
            obj_usuario.idgrupo = cbo_Grupo.EditValue

            obj_usuario.usuario = txt_Usuario.Text
            obj_usuario.contraseña = txt_Contraseña.Text

            Me.DialogResult = Windows.Forms.DialogResult.OK
        End If
    End Sub

    Private Sub btn_Cerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cerrar.Click
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
    End Sub
End Class